table(replicate(1000, runs.test(factor(sign(one.ts())))$p.value < 0.05))